
# A2_create_plot
#==============================================================================
  
# Description: This file plots the quality estimates, used in Figure 2

rm(list = ls())

library("data.table")  
library("ggplot2")  
library("stargazer")  

output <- fread('output_files/q_partner_5000.csv')

plot_quality <- ggplot(output, aes(x=gdp_log, y=q)) +
                geom_text(label=output$iso3, size = 3.2) +
                geom_smooth(method=lm) +
                labs(x = "GDP per capita (in logs)", y = "Quality") 

  
ggsave("plot_quality.png", plot = plot_quality)


